home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / dejagnu.lha / dejagnu-1.0.1 / tcl / doc / man.macros < prev    next >
Text File  |  1993-02-14  |  4KB  |  177 lines
  1. .\" The definitions below are for supplemental macros used in Tcl/Tk
  2. .\" manual entries.
  3. .\"
  4. .\" .HS name section [date [version]]
  5. .\"    Replacement for .TH in other man pages.  See below for valid
  6. .\"    section names.
  7. .\"
  8. .\" .AP type name in/out [indent]
  9. .\"    Start paragraph describing an argument to a library procedure.
  10. .\"    type is type of argument (int, etc.), in/out is either "in", "out",
  11. .\"    or "in/out" to describe whether procedure reads or modifies arg,
  12. .\"    and indent is equivalent to second arg of .IP (shouldn't ever be
  13. .\"    needed;  use .AS below instead)
  14. .\"
  15. .\" .AS [type [name]]
  16. .\"    Give maximum sizes of arguments for setting tab stops.  Type and
  17. .\"    name are examples of largest possible arguments that will be passed
  18. .\"    to .AP later.  If args are omitted, default tab stops are used.
  19. .\"
  20. .\" .BS
  21. .\"    Start box enclosure.  From here until next .BE, everything will be
  22. .\"    enclosed in one large box.
  23. .\"
  24. .\" .BE
  25. .\"    End of box enclosure.
  26. .\"
  27. .\" .VS
  28. .\"    Begin vertical sidebar, for use in marking newly-changed parts
  29. .\"    of man pages.
  30. .\"
  31. .\" .VE
  32. .\"    End of vertical sidebar.
  33. .\"
  34. .\" .DS
  35. .\"    Begin an indented unfilled display.
  36. .\"
  37. .\" .DE
  38. .\"    End of indented unfilled display.
  39. .\"
  40. '\"    # Heading for Tcl/Tk man pages
  41. .de HS
  42. .if '\\$2'cmds'       .TH \\$1 1 \\$3 \\$4
  43. .if '\\$2'lib'        .TH \\$1 3 \\$3 \\$4
  44. .if '\\$2'tcl'        .TH \\$1 3 \\$3 \\$4
  45. .if '\\$2'tk'         .TH \\$1 3 \\$3 \\$4
  46. .if t .wh -1.3i ^B
  47. .nr ^l \\n(.l
  48. .ad b
  49. ..
  50. '\"    # Start an argument description
  51. .de AP
  52. .ie !"\\$4"" .TP \\$4
  53. .el \{\
  54. .   ie !"\\$2"" .TP \\n()Cu
  55. .   el          .TP 15
  56. .\}
  57. .ie !"\\$3"" \{\
  58. .ta \\n()Au \\n()Bu
  59. \&\\$1    \\fI\\$2\\fP    (\\$3)
  60. .\".b
  61. .\}
  62. .el \{\
  63. .br
  64. .ie !"\\$2"" \{\
  65. \&\\$1    \\fI\\$2\\fP
  66. .\}
  67. .el \{\
  68. \&\\fI\\$1\\fP
  69. .\}
  70. .\}
  71. ..
  72. '\"    # define tabbing values for .AP
  73. .de AS
  74. .nr )A 10n
  75. .if !"\\$1"" .nr )A \\w'\\$1'u+3n
  76. .nr )B \\n()Au+15n
  77. .\"
  78. .if !"\\$2"" .nr )B \\w'\\$2'u+\\n()Au+3n
  79. .nr )C \\n()Bu+\\w'(in/out)'u+2n
  80. ..
  81. '\"    # BS - start boxed text
  82. '\"    # ^y = starting y location
  83. '\"    # ^b = 1
  84. .de BS
  85. .br
  86. .mk ^y
  87. .nr ^b 1u
  88. .if n .nf
  89. .if n .ti 0
  90. .if n \l'\\n(.lu\(ul'
  91. .if n .fi
  92. ..
  93. '\"    # BE - end boxed text (draw box now)
  94. .de BE
  95. .nf
  96. .ti 0
  97. .mk ^t
  98. .ie n \l'\\n(^lu\(ul'
  99. .el \{\
  100. .\"    Draw four-sided box normally, but don't draw top of
  101. .\"    box if the box started on an earlier page.
  102. .ie !\\n(^b-1 \{\
  103. \h'-1.5n'\L'|\\n(^yu-1v'\l'\\n(^lu+3n\(ul'\L'\\n(^tu+1v-\\n(^yu'\l'|0u-1.5n\(ul'
  104. .\}
  105. .el \}\
  106. \h'-1.5n'\L'|\\n(^yu-1v'\h'\\n(^lu+3n'\L'\\n(^tu+1v-\\n(^yu'\l'|0u-1.5n\(ul'
  107. .\}
  108. .\}
  109. .fi
  110. .br
  111. .nr ^b 0
  112. ..
  113. '\"    # VS - start vertical sidebar
  114. '\"    # ^Y = starting y location
  115. '\"    # ^v = 1 (for troff;  for nroff this doesn't matter)
  116. .de VS
  117. .mk ^Y
  118. .ie n 'mc \s12\(br\s0
  119. .el .nr ^v 1u
  120. ..
  121. '\"    # VE - end of vertical sidebar
  122. .de VE
  123. .ie n 'mc
  124. .el \{\
  125. .ev 2
  126. .nf
  127. .ti 0
  128. .mk ^t
  129. \h'|\\n(^lu+3n'\L'|\\n(^Yu-1v\(bv'\v'\\n(^tu+1v-\\n(^Yu'\h'-|\\n(^lu+3n'
  130. .sp -1
  131. .fi
  132. .ev
  133. .\}
  134. .nr ^v 0
  135. ..
  136. '\"    # Special macro to handle page bottom:  finish off current
  137. '\"    # box/sidebar if in box/sidebar mode, then invoked standard
  138. '\"    # page bottom macro.
  139. .de ^B
  140. .ev 2
  141. 'ti 0
  142. 'nf
  143. .mk ^t
  144. .if \\n(^b \{\
  145. .\"    Draw three-sided box if this is the box's first page,
  146. .\"    draw two sides but no top otherwise.
  147. .ie !\\n(^b-1 \h'-1.5n'\L'|\\n(^yu-1v'\l'\\n(^lu+3n\(ul'\L'\\n(^tu+1v-\\n(^yu'\h'|0u'\c
  148. .el \h'-1.5n'\L'|\\n(^yu-1v'\h'\\n(^lu+3n'\L'\\n(^tu+1v-\\n(^yu'\h'|0u'\c
  149. .\}
  150. .if \\n(^v \{\
  151. .nr ^x \\n(^tu+1v-\\n(^Yu
  152. \kx\h'-\\nxu'\h'|\\n(^lu+3n'\ky\L'-\\n(^xu'\v'\\n(^xu'\h'|0u'\c
  153. .\}
  154. .bp
  155. 'fi
  156. .ev
  157. .if \\n(^b \{\
  158. .mk ^y
  159. .nr ^b 2
  160. .\}
  161. .if \\n(^v \{\
  162. .mk ^Y
  163. .\}
  164. ..
  165. '\"    # DS - begin display
  166. .de DS
  167. .RS
  168. .nf
  169. .sp
  170. ..
  171. '\"    # DE - end display
  172. .de DE
  173. .fi
  174. .RE
  175. .sp .5
  176. ..
  177.